home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
toasc.cc
< prev
next >
Wrap
Text File
|
1991-01-29
|
1KB
|
41 lines
00070 A.A = size-1
00079 start object phase
00080 D (characters per line) = 64
00083 B.A = size-1
00085 A.A = adr of alloc str
00088 D0 = adr of alloc str
0008B D0 = adr of alloc str data
0008E point to checksum on stack
00091 C.A = adr of checksum
00094 save adr of checksum
00096 point to orig object
00099 A.A = adr of orig object
0009C D1 = adr of orig object
0009F A.S = first nibble of object
000A3 C.S = first nibble of object
000A6 modify A.A's copy of data
000A9 and try to update memory
000AD fetch nibble back
000B1 go if RAM (changed)
000BD fix RAM (replace orig nibble)
000C1 count character in line
000C4 go if not EOL
000C7 reset D for new line (D=63)
000CB ...
000D2 append line feed
000D5 ...
000D8 convert nibble to character
000FF store character into string
00102 next character
00105 next nibble
00108 decr nibbles remaining
0010A go if more
0010D exit if checksum in progress
00112 start checksum phase
00115 B.A = 3 (size of checksum - 1)
0011C ...
0011E C = adr of checksum
00120 D1 = adr of checksum
00123 D1 = adr of checksum data
00126 go process checksum